home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 11 / AMUG BBS in a Box Volume XI (April 1994) (MacWizards).iso / Files / Hyper / S-Sh / Scriptstack.sit / scriptsStack.a / scriptsStack.a / card_8315.txt < prev    next >
Encoding:
Text File  |  1988-01-07  |  718 b   |  35 lines
  1. -- card: 8315 from stack: in.a
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2689
  5. -- name: 
  6.  
  7.  
  8. -- part contents for background part 24
  9. ----- text -----
  10. Export text
  11.  
  12. -- part contents for background part 26
  13. ----- text -----
  14. on mouseUp
  15.   
  16.   ask "Export text to what file, fella?" with filename
  17.   if it is empty then exit mouseUp
  18.   put it into filename
  19.   open file filename
  20.   go to first card
  21.   repeat for the number of cards
  22.     repeat with i=1 to the number of fields
  23.       write field i to file filename
  24.       write tab to file filename
  25.     end repeat
  26.     visual wipe left to black
  27.     go to next card
  28.   end repeat
  29.   close file filename
  30. end mouseUp
  31.  
  32.  
  33. -- part contents for background part 39
  34. ----- text -----
  35. other